inherited crdTenantDocEdit: TcrdTenantDocEdit
  Left = 556
  Top = 330
  VertScrollBar.Range = 0
  BorderStyle = bsDialog
  Caption = #1056#1077#1076#1072#1082#1090#1080#1088#1086#1074#1072#1085#1080#1077' '#1076#1086#1082#1091#1084#1077#1085#1090#1072
  ClientHeight = 273
  ClientWidth = 250
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 246
    Width = 250
    TabOrder = 1
    inherited BitBtn1: TBitBtn
      Left = 43
    end
    inherited BitBtn2: TBitBtn
      Left = 145
    end
  end
  inherited ToolBar1: TToolBar
    Width = 250
    Height = 0
    TabOrder = 0
  end
  object Panel2: TPanel [2]
    Left = 0
    Top = 0
    Width = 250
    Height = 246
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object Label11: TLabel
      Left = 10
      Top = 7
      Width = 76
      Height = 13
      Caption = #1058#1080#1087' '#1076#1086#1082#1091#1084#1077#1085#1090#1072
    end
    object Label13: TLabel
      Left = 10
      Top = 87
      Width = 71
      Height = 13
      Caption = #1054#1088#1075#1072#1085' '#1074#1099#1076#1072#1095#1080
    end
    object Label6: TLabel
      Left = 10
      Top = 167
      Width = 96
      Height = 13
      Caption = #1054#1089#1085#1086#1074#1072#1085#1080#1077' '#1074#1099#1076#1072#1095#1080
    end
    object Label17: TLabel
      Left = 10
      Top = 207
      Width = 95
      Height = 13
      Caption = #1053#1072#1089#1077#1083#1077#1085#1085#1099#1081' '#1087#1091#1085#1082#1090
    end
    object Label18: TLabel
      Left = 10
      Top = 127
      Width = 66
      Height = 13
      Caption = #1044#1072#1090#1072' '#1074#1099#1076#1072#1095#1080
    end
    object Label1: TLabel
      Left = 10
      Top = 47
      Width = 31
      Height = 13
      Caption = #1057#1077#1088#1080#1103
    end
    object Label2: TLabel
      Left = 140
      Top = 47
      Width = 34
      Height = 13
      Caption = #1053#1086#1084#1077#1088
    end
    object Label3: TLabel
      Left = 140
      Top = 127
      Width = 82
      Height = 13
      Caption = #1044#1072#1090#1072' '#1086#1082#1086#1085#1095#1072#1085#1080#1103
    end
    object DocTypesBox: TDBLookupComboboxEh
      Left = 10
      Top = 22
      Width = 230
      Height = 19
      AlwaysShowBorder = True
      DataField = 'DOC_TYPE_ID'
      DropDownBox.SpecRow.CellsText = '---'
      DropDownBox.SpecRow.Visible = True
      EditButtons = <>
      Flat = True
      KeyField = 'ID'
      ListField = 'NAME'
      ListSource = ds_QDocTypes
      TabOrder = 0
      Visible = True
      OnEnter = ControlEnter
      OnKeyPress = ControlKeyPress
    end
    object DocOrgansBox: TDBLookupComboboxEh
      Left = 10
      Top = 102
      Width = 230
      Height = 19
      AlwaysShowBorder = True
      DataField = 'ORGAN_ID'
      DropDownBox.SpecRow.CellsText = '---'
      DropDownBox.SpecRow.Visible = True
      EditButtons = <>
      Flat = True
      KeyField = 'ID'
      ListField = 'NAME'
      ListSource = ds_QDocOrgans
      Style = csDropDownEh
      TabOrder = 3
      Visible = True
      OnEnter = ControlEnter
      OnKeyPress = ControlKeyPress
      OnNotInList = NotInList
    end
    object DocReasonsBox: TDBLookupComboboxEh
      Left = 10
      Top = 182
      Width = 230
      Height = 19
      AlwaysShowBorder = True
      DataField = 'REASON'
      DropDownBox.SpecRow.CellsText = '---'
      DropDownBox.SpecRow.Visible = True
      EditButtons = <>
      Flat = True
      KeyField = 'ID'
      ListField = 'NAME'
      ListSource = ds_QDocReasons
      Style = csDropDownEh
      TabOrder = 6
      Visible = True
      OnEnter = ControlEnter
      OnKeyPress = ControlKeyPress
    end
    object DocBDate: TDBDateTimeEditEh
      Left = 10
      Top = 142
      Width = 100
      Height = 19
      AlwaysShowBorder = True
      DataField = 'BDATE'
      EditButtons = <>
      Flat = True
      Kind = dtkDateEh
      TabOrder = 4
      Visible = True
      OnEnter = ControlEnter
      OnKeyPress = ControlKeyPress
    end
    object DocSerEdit: TDBEditEh
      Left = 10
      Top = 62
      Width = 100
      Height = 19
      AlwaysShowBorder = True
      DataField = 'SERIAL'
      EditButtons = <>
      Flat = True
      TabOrder = 1
      Visible = True
      OnEnter = ControlEnter
      OnKeyPress = ControlKeyPress
    end
    object DocNumEdit: TDBEditEh
      Left = 140
      Top = 62
      Width = 100
      Height = 19
      AlwaysShowBorder = True
      DataField = 'NUMBER'
      EditButtons = <>
      Flat = True
      TabOrder = 2
      Visible = True
      OnEnter = ControlEnter
      OnKeyPress = ControlKeyPress
    end
    object DocEDate: TDBDateTimeEditEh
      Left = 140
      Top = 142
      Width = 100
      Height = 19
      AlwaysShowBorder = True
      DataField = 'EDATE'
      EditButtons = <>
      Flat = True
      Kind = dtkDateEh
      TabOrder = 5
      Visible = True
      OnEnter = ControlEnter
      OnKeyPress = ControlKeyPress
    end
    object DocTownsBox: TDBLookupComboboxEh
      Left = 10
      Top = 222
      Width = 230
      Height = 19
      AlwaysShowBorder = True
      DataField = 'ORGANTOWN'
      DropDownBox.SpecRow.CellsText = '---'
      DropDownBox.SpecRow.Visible = True
      EditButtons = <>
      Flat = True
      KeyField = 'ID'
      ListField = 'NAME'
      ListSource = ds_QTowns
      Style = csDropDownEh
      TabOrder = 7
      Visible = True
      OnEnter = ControlEnter
      OnKeyPress = ControlKeyPress
      OnNotInList = NotInList
    end
  end
  inherited ActionList1: TActionList
    Left = 184
    Top = 0
    inherited aSave: TAction
      OnExecute = aSaveExecute
    end
    inherited aCancel: TAction
      OnExecute = aCancelExecute
    end
  end
  inherited PropStorage: TPropStorageEh
    Left = 152
    Top = 4
  end
  object QDocTypes: TpFIBDataSet
    SelectSQL.Strings = (
      'select id, name from pas_ridentitycard'
      'order by name')
    Transaction = crdTenant.trTenant
    Database = MAINDM.pMainDatabase
    AutoCommit = True
    CSMonitorSupport.Enabled = csmeTransactionDriven
    Left = 157
    Top = 34
    oFetchAll = True
    object QDocTypesID: TFIBIntegerField
      FieldName = 'ID'
    end
    object QDocTypesNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
  end
  object ds_QDocTypes: TDataSource
    DataSet = QDocTypes
    Left = 193
    Top = 34
  end
  object QDocOrgans: TpFIBDataSet
    InsertSQL.Strings = (
      'INSERT INTO PAS_RDOC_ORGAN('
      '    ID,'
      '    NAME'
      ')'
      'VALUES('
      '    :ID,'
      '    :NAME'
      ')')
    RefreshSQL.Strings = (
      'select id, name from pas_rdoc_organ'
      ''
      ' WHERE '
      '        PAS_RDOC_ORGAN.ID = :OLD_ID'
      '    ')
    SelectSQL.Strings = (
      'select id, name from pas_rdoc_organ'
      'order by name')
    AutoUpdateOptions.UpdateTableName = 'PAS_RDOC_ORGAN'
    AutoUpdateOptions.KeyFields = 'ID'
    AutoUpdateOptions.GeneratorName = 'GEN_PAS_RDOC_ORGAN_ID'
    AutoUpdateOptions.WhenGetGenID = wgOnNewRecord
    AutoUpdateOptions.AutoParamsToFields = True
    Transaction = crdTenant.trTenant
    Database = MAINDM.pMainDatabase
    AutoCommit = True
    CSMonitorSupport.Enabled = csmeTransactionDriven
    Left = 165
    Top = 117
    oFetchAll = True
    object QDocOrgansID: TFIBIntegerField
      FieldName = 'ID'
    end
    object QDocOrgansNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
  end
  object ds_QDocOrgans: TDataSource
    DataSet = QDocOrgans
    Left = 201
    Top = 117
  end
  object QDocReasons: TpFIBDataSet
    SelectSQL.Strings = (
      'select id, name from pas_rdocreason'
      'order by name')
    Transaction = crdTenant.trTenant
    Database = MAINDM.pMainDatabase
    AutoCommit = True
    CSMonitorSupport.Enabled = csmeTransactionDriven
    Left = 160
    Top = 191
    oFetchAll = True
    object QDocReasonsID: TFIBIntegerField
      FieldName = 'ID'
    end
    object QDocReasonsNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 60
      EmptyStrToNull = True
    end
  end
  object ds_QDocReasons: TDataSource
    DataSet = QDocReasons
    Left = 196
    Top = 191
  end
  object QTowns: TpFIBDataSet
    InsertSQL.Strings = (
      'INSERT INTO PAS_RTOWN(name)'
      'VALUES(:name)')
    SelectSQL.Strings = (
      'select'
      '    code id,'
      '    full_name name'
      'from pas_rtown pt'
      'order by name')
    Transaction = crdTenant.trTenant
    Database = MAINDM.pMainDatabase
    AutoCommit = True
    CSMonitorSupport.Enabled = csmeTransactionDriven
    Left = 162
    Top = 221
    oFetchAll = True
    object QTownsID: TFIBIntegerField
      FieldName = 'ID'
    end
    object QTownsNAME: TFIBStringField
      FieldName = 'NAME'
      Size = 123
      EmptyStrToNull = True
    end
  end
  object ds_QTowns: TDataSource
    DataSet = QTowns
    Left = 196
    Top = 223
  end
end
